Public Class Palavra
    'Implements IComparable(Of Palavra)

    Public Sub New(ByVal spalavra As String, ByVal pontuacaoInicial As Integer)
        _palavra = spalavra
        _pontuacao = pontuacaoInicial
    End Sub

    Private _isTopFrequencia As Boolean
    Public Property isTopFrequencia() As Boolean
        Get
            Return _isTopFrequencia
        End Get
        Set(ByVal value As Boolean)
            _isTopFrequencia = value
        End Set
    End Property

    Private _isNoTitulo As Boolean
    Public Property isNoTitulo() As Boolean
        Get
            Return _isNoTitulo
        End Get
        Set(ByVal value As Boolean)
            _isNoTitulo = value
        End Set
    End Property

    Private _isPalavraDefinicao As Boolean
    Public Property isPalavraDefinicao() As Boolean
        Get
            Return _isPalavraDefinicao
        End Get
        Set(ByVal value As Boolean)
            _isPalavraDefinicao = value
        End Set
    End Property

    Private _isTopPrimeiras As Boolean
    Public Property isTopPrimeiras() As Boolean
        Get
            Return _isTopPrimeiras
        End Get
        Set(ByVal value As Boolean)
            _isTopPrimeiras = value
        End Set
    End Property

    Private _ordem As Integer
    Public Property ordem() As Integer
        Get
            Return _ordem
        End Get
        Set(ByVal value As Integer)
            _ordem = value
        End Set
    End Property

    Private _palavra As String
    Public Property palavra() As String
        Get
            Return _palavra
        End Get
        Set(ByVal value As String)
            _palavra = value
        End Set
    End Property

    Private _pontuacao As Single
    Public ReadOnly Property pontuacao() As Single
        Get
            Return _pontuacao
        End Get
    End Property

    Public Sub adicionaPontuacao(ByVal pontos As Long)
        _pontuacao += pontos
    End Sub

    Private _frequencia As Long
    Public ReadOnly Property frequencia() As Long
        Get
            Return _frequencia
        End Get
    End Property

    Public Sub adicionaFrequencia(ByVal pontos As Long)
        _frequencia += pontos
    End Sub

    'Public Overloads Function CompareTo(ByVal other As Palavra) As Integer _
    '    'Implements IComparable(Of Palavra).CompareTo

    '    If _pontuacao < other._pontuacao Then
    '        Return -1
    '    ElseIf _pontuacao = other._pontuacao Then
    '        Return 0
    '    ElseIf _pontuacao > other._pontuacao Then
    '        Return 1
    '    End If
    'End Function
End Class
